home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Guide.dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.1 KB  |  60 lines
  1. global gqtvrinstance, gbarsprite, gslidersprite, ossprite, guidenumber
  2.  
  3. on swingpanomovie phpan, pvpan, pzoom, pSwingSpeed, pSwingQuality
  4.   set the movieRate of sprite ossprite to 0
  5.   if isqtvrmovie(gqtvrinstance) then
  6.     qtvrsetfov(gqtvrinstance, pzoom)
  7.     qtvrsettiltangle(gqtvrinstance, pvpan)
  8.     qtvrsetpanangle(gqtvrinstance, phpan)
  9.     qtvrsetquality(gqtvrinstance, pSwingQuality)
  10.     qtvrsettransitionmode(gqtvrinstance, "swing")
  11.     qtvrsettransitionspeed(gqtvrinstance, pSwingSpeed)
  12.     qtvrupdate(gqtvrinstance)
  13.     qtvrsettransitionmode(gqtvrinstance, "normal")
  14.   end if
  15.   qtvrupdate(gqtvrinstance)
  16.   set the movieRate of sprite ossprite to 1
  17. end
  18.  
  19. on setsliderbymovietime
  20.   set mtime to float(the movieTime of sprite ossprite)
  21.   set ratio to mtime / the duration of member ("OS" & guidenumber)
  22.   set sliderloc to integer(ratio * (the width of sprite gbarsprite - 1))
  23.   set sliderloc to sliderloc + the left of sprite gbarsprite
  24.   set the rect of sprite gslidersprite to rect(the left of sprite gslidersprite, the top of sprite gslidersprite, sliderloc, the bottom of sprite gslidersprite)
  25. end
  26.  
  27. on dragslider
  28.   set barleft to the left of sprite gbarsprite
  29.   set barright to the right of sprite gbarsprite
  30.   set the movieRate of sprite ossprite to 0
  31.   updateStage()
  32.   repeat while the mouseDown = 1
  33.     set mh to the mouseH
  34.     if mh <= barleft then
  35.       set the rect of sprite gslidersprite to rect(86, 230, barleft, 237)
  36.     else
  37.       if mh >= barright then
  38.         set the rect of sprite gslidersprite to rect(86, 230, barright, 237)
  39.       else
  40.         set the rect of sprite gslidersprite to rect(86, 230, mh, 237)
  41.       end if
  42.     end if
  43.     updateStage()
  44.     setmovietimebyslider()
  45.     updateStage()
  46.     checkospoint()
  47.   end repeat
  48.   set the movieRate of sprite ossprite to 1
  49. end
  50.  
  51. on setmovietimebyslider
  52.   set sliderloc to the right of sprite gslidersprite
  53.   set sliderloc to sliderloc - the left of sprite gbarsprite
  54.   set sliderloc to float(sliderloc)
  55.   set ratio to sliderloc / (the width of sprite gbarsprite - 1)
  56.   set mtime to ratio * the duration of member ("OS" & guidenumber)
  57.   set mtime to integer(mtime)
  58.   set the movieTime of sprite ossprite to mtime
  59. end
  60.